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APPENDIX - SOURCE CODE 



10 



15 



/ * Query 1 : 

select x, b 
from S, T 
where y = a 

Plan: 

BNO - 



NLJ • 
/ \ 
/ \ 
TA S s TA T t 



- [ s.#0, t. #1 ] 
[ s.#l = t.#0 ] 



20 



S 25 

o 
o 

m 

GO 30 



5 . S 



35 



40 



45 



50 



55 



*/ 

#if 0 

/* BNO */ 
thread[ 0] .opc 
thread [0 ] . typ 
thread[0] .obj 
bno->in 
bno->f n 
bno~>fns 
bno->bno 

/* s.#0 */ 
thread [ 1 ] . opc 
thread [1] .typ 
thread [1] .obj 
varattl->tvar 
varattl->col 

/* t.#l */ 
thread [2 ] . opc 
thread [ 2 ] . typ 
thread [2] .obj 
varatt2->tvar 
varatt2->col 

/* NLJ */ 
thread [3] .opc 
thread [ 3 ] . typ 
thread [3] .obj 
nl j ->outer 
nl j -> inner 
nl j ->pred 

I * -— * j 

thread [ 4] . opc 
thread [ 4] . typ 
thread [4] .obj 



SVL920010034US1 



eBNO; 

eT_streamof (clOvclO) ; 
(ePtr) objof f set (bno, heap) ; 
(ePtr) 3; 
(ePtr) 1; 
2; 

oMemAlloc (bno->fns * sizeof (ColVal ) ) 



eVARATT; 

eT_setlen{eT_char , 10) ; 

(ePtr) objof fset (varattl, heap) ; 

(ePtr) 9; 

0; 



eVARATT ; 

eT_setlen(eT_varchar, 10) ; 
(ePtr) objof fset (varatt2 , heap) ; 
(ePtr) 10; 
1; 



eNLJ; 
0; 

(ePtr) objof fset (nlj , heap) ; 
(ePtr) 7; 
(ePtr) 8 
(ePtr) 4 



eEQ_II; 
eT_bool; 

(ePtr) objof fset (eq_ii, heap) ; 
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eq_ii->xl 
eq_ii ->x2 = 

/* s.#l */ 
5 thread[5] .opc = 

thread[5] . typ = 
thread [ 5 ] . obj = 
varatt3->tvar = 
varatt3->col 
10 

/* t.#0 */ 
thread [6] .opc = 
thread [ 6 ]. typ = 
thread [6] .obj = 
15 varatt4->tvar = 

varatt4~>col 

/* TA S s */ 
thread [7] .opc = 
20 thread [7] .typ = 

thread [7] .obj = 
tal->tvar = 
H» tal->pred 
Q tal->tmd = 

Q 25 tal->openp 

Q I* TA T t */ 

thread [ 8 ] . opc = 

!2 thread [8] .typ = 

30 thread [8] .obj = 

ta2->tvar 

^ ta2->pred 

D ta2->tmd 

Uj ta2->openp = 

a 35 

U /* VAR s */ 

thread [9] .opc = 
SI thread [9 3 . typ = 

40 /* VAR t */ 

thread [10] .opc = 
thread [10] . typ = 

/* EXIT */ 
45 thread [11] .opc = 

thread [11] .typ = 
#endif 

/ * Query 2 : 

50 

select x, b 
from S, T 
where y = a 

55 Plan: 



(ePtr) 5; 
(ePtr) 6; 



eVARATT; 
eT_int ; 

(ePtr ) objof f set (varatt3 , heap) ; 
(ePtr) 9; 
1; 



eVARATT; 
eT_int ; 

(ePtr) objof f set (varatt4, heap) ; 

(ePtr) 10; 

0; 



eTA; 

eT_streamof (clOintsml) ; 

(ePtr) objof f set (tal, heap) ; 

(ePtr) 9; 

(ePtr) 0; 

t->pTMD; 

0; 



eTA; 

eT_streamof ( intvclO) ; 

(ePtr) objof f set (ta2 , heap) ; 

(ePtr) 10; 

(ePtr) 0; 

tl->pTMD; 

0; 



eVAR; 

(eType) clOintsml; 



eVAR; 

(eType) intvclO ; 



eEXIT; 
0; 



BNO -- [ s.#0, t. #1 ] 

28 
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NLJ [ s.#l == t.# 0 ] 

/ \ 
/ \ 

TA S s ITA T t -- [ t.#0 > S.#l ] 

stop 



10 



15 



#if 0 



/* BNO */ 
thread [0] .opc 
thread [0] . typ 
thread [0] . ob j 
bno->in 
bno->fn 
bno->fns 
bno->bno 



eBNO ; 

eT_streamof (clOvclO) ; 

(ePtr) objof fset (bno, heap) ; 

(ePtr) 3; 

(ePtr)l; 

2; 

oMemAlloc (bno->fns * sizeof (ColVal) ) 



20 



*S 25 

. 9"!! 



IS 30 



/* s.#0 */ 
thread [1] - opc 
threadtl] . typ 
thread [1] . ob j 
varattl->tvar 
varattl->col 

/* t.#l */ 
thread [2] .opc 
thread [2] .typ 
thread [2] .obj 
varatt2->tvar 
varatt2->col 



eVARATT ; 

eT_s e 1 1 en ( eT_char , 10); 

(ePtr) objof fset (varattl, heap) ; 

(ePtr) 9; 

0; 



eVARATT; 

eT_setlen ( eT_varchar , 10) ; 
(ePtr) objof fset (varatt2 , heap) ; 
(ePtr) 10; 
1; 



^ 35 



40 



/* NLJ */ 
thread [3] . opc 
thread [3] .typ 
thread [3] .obj 
nl j ->outer 
nl j ->inner 
nl j->pred 



eNL J ; 
0; 

(ePtr) objof fset (nl j , heap) ; 

(ePtr)7; 

(ePtr) 8; 

(ePtr)ll; 



45 



/* < */ 
thread [4] . opc 
thread[4] .typ 
thread[4] .obj 
lt_ii->xl 
It ii->x2 



eLT_II; 
eT„bool; 

(ePtr) objof fset (lt_ii , heap) ; 
(ePtr) 6; 
(ePtr) 5; 



50 



55 



/* t.#0 */ 
thread [5] . opc 
thread [5] . typ 
thread[5] .obj 
varatt4->tvar 
varatt4->col 

/* s.#l */ 
thread[6] .opc 

SVL920010034US1 



eVARATT ; 
eT_J_nt ; 

(ePtr) objof fset (varatt4, heap) ; 

(ePtr) 10; 

0; 



= eVARATT; 
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thread [ 6 ] . typ 
thread [6] .obj 
varatt3->tvar 
varatt3->col 



eT_int ; 

(ePtr ) objof f set (varatt3 , 

(ePtr) 9; 

1; 



heap) 



10 



/* TA S s */ 
thread [7 ] . opc 
thread [7] .typ 
thread [7] .obj 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 



eTA; 

eT_streamof (clOintsml ) ; 

(ePtr) objof f set (tal , heap) 

(ePtr) 9; 

(ePtr) 0; 

t->pTMD; 

0; 



15 



20 



25 



30 



U 35 



40 



45 



/* IT A T t */ 
thread [8] . opc 
thread [8] .typ 
thread[8] .obj 
ita->tvar 
ita->pred 
ita->tmd 
ita->openp 
ita->ix 
ita->ixid 

/* VAR s */ 
thread [9 ] . opc 
thread [9] . typ 

/* VAR t */ 
thread [10] .opc 



elTA; 

eT_streamof (intvclO) ; 
(ePtr) objof f set ( ita, heap) 
(ePtr) 10; 
(ePtr) 4; 
tl->pTMD; 



= 0; 



* ( tl->ppQIscan) ; 
tl->idxSelected; 



eVAR; 

(eType) clOintsml; 



eVAR; 



thread [ 10 ]. typ = ( eType) intvclO ; 



/* == */ 
thread [11] 
thread [11] 
thread [11] 
eq_ii->xl 
eq_ii->x2 



opc = eEQ_II; 
typ - eT_bool ; 

obj = (ePtr) objof f set ( eq_ii , heap) ; 
= (ePtr)5; 
= (ePtr)6; 



/* EXIT */ 
thread [12] .opc 
thread [12] . typ 
#endif 

/ * Query 3 : 



eEXIT; 
0; 



50 



select 
from 
order by 



S 
x 



55 



Plan: 



BNO — [ * ] 



SORT s 



30 
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I 

i 

TA S 

*/ 

5 

#if 0 

/* BNO * */ 
thread [0] .opc = eBNO; 
thread [ 0 ]. typ = ( eType) clOintsml ; 
10 thread[0] . ob j = (ePtr) objoff set (brio, heap); 

bno->in = (ePtr)l; 

bno->fn = (ePtr)O; 

bno->fns = 3; 

bno->bno = oMemAlloc (bno->f ns * sizeof (ColVal ) ) ; 

15 

/* SORT s */ 

thread [1] .opc = eSORT; 

thread [ 1 ]. typ = eT_streamof ( clOintsml ) ; 

thread [ 1] . ob j = (ePtr) objoff set (sort , heap) ; 
20 sort->in = (ePtr)2; 

sort->tvar = (ePtr)O; 

sort->tmd = query->resultset . pTMD; 

r 5 * oStrcpy {sort->tmd->tname / "sorting"); 

O sort->sortp = 0; 

O 25 



yn /* TA s V 

rl thread [2] .opc = eTA; 

f*^ thread [ 2 ]. typ = eT_streamof ( clOintsml ) ; 

*S thread [2 ] . ob j = (ePtr) objoff set ( tal , heap) ; 

30 tal->tvar = (ePtr)0; 

^ tal->pred = (ePtr)0; 

s tal->tmd = t->pTMD; 

^ tal->openp = 0; 

O 35 /* EXIT */ 

M ? thread[3] .opc = eEXIT; 

m thread [3 ] .typ = 0; 

ni #endif 

40 /* Query 4: 



select sum (y) , count (* ) 
from S 



45 Plan: 

BNOAGG — [ SUM_I, CNT ] 

I I 
| s.#l 
50 TA S s 

*/ 

#if 0 

/* BNOAGG */ 
55 thread [0] .opc = e BNOAGG ; 

thread [0] .typ = ( eType) intint ; 

thread [ 0] . obj = (ePtr) objoff set (bno, heap) ; 

31 
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bno->in 
bno->fn 
bno->fns 
bno->bno 

/* SUM_I */ 
thread [ 1] . opc 
thread [ 1 ] . typ 
thread [1] . ob j 
sum- > in 

/* CNT */ 
thread [2] .opc 
thread [2] .typ 

/* s.#l */ 
thread [ 3 ] . opc 
thread [3] .typ 
thread [3] . ob j 
varattl->tvar 
varattl->col 



(ePtr) 4; 
(ePtr) 1; 
2; 

oMemAlloc (bno~>fns * sizeof (ColVal) ) 



eSUM_I ; 
eT_int ; 

( ePtr) obj of f set ( sum, heap) ; 
(ePtr)3; 



eCNT; 
eT_int ; 



eVARATT; 
eT_int ; 

(ePtr) objof f set (varattl , heap) ; 

(ePtr) 5; 

1; 



/* TA S V 
thread [ 4] . opc 
thread[4] .typ 
thread [4] . ob j 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 



eTA; 

eT_streamof (clOintsrnl) ; 

(ePtr)objoffset(tal, heap) ; 

(ePtr) 5; 

(ePtr) 0; 

t - >pTMD ; 

0; 



/* VAR s */ 
thread [ 5 ] . opc 
thread [ 5] . typ 

/* EXIT */ 
thread [5] .opc 
thread [5] .typ 
#endif 



eVAR; 

(eType) clOintsrnl ; 



eEXIT; 
0; 



/ * Query 5 : 

select (select (sum(a) 
from T 
where a > 1) 
from S 

Plan: 

BNO -- ATT #0 

I I 
| SUBQ 

i AGG SUM I 



t.#0 



TA S 
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TA T t 



[ t.#0 > 1 ] 



#if 0 



10 



/* BNO */ 
thread[0] . opc 
thread [ 0 ] . typ 
thread [0] . ob j 
bno->in 
bno->fn 
bno->fns 
bno->bno 



eBNO ; 

( eType) xint ; 

(ePtr) objof f set (bno, 

(ePtr)2; 

(ePtr)l; 

1; 

oMemAlloc (bno->f ns * 



heap) ; 



sizeof (ColVal) ) 



15 



20 



25 



/* ATT #0 */ 
thread [1] .opc 
thread [ 1 ] . typ 
thread[l] . ob j 
att->in 
att->col 

/* TA S V 
thread [2] .opc 
thread [2] .typ 
thread [2] .obj 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 



e ATT ; 
eT_int ; 

(ePtr)objof fset (att, heap) ; 

(ePtr) 3; 

0; 



eTA; 

eT__streamof (clOintsml ) ; 
(ePtr) objof fset ( tal, heap) ; 
(ePtr) 0; 



(ePtr) 0 
t - >pTMD 
0; 



30 



W 

& 35 



/* SUBQ */ 
thread [3 ] . opc 
thread [3] . typ 
thread [3] .obj 
subq->in 
subq->tvar 



eSUBQ; 

eT_streamof (xint ) ; 
(ePtr) objof fset (subq, 
(ePtr) 4; 
(ePtr) 0; 



heap) ; 



40 



/* AGG */ 
thread [ 4] . opc 
thread [4] .typ 
thread [4] .obj 
agg->in 
agg->fn 
agg->fns 



e AGG ; 

eT_streamof (xint ) ; 

(ePtr) objof fset (agg, heap) ; 

(ePtr) 5; 

(ePtr) 6; 

1; 



45 



50 



/* TA T t */ 
thread [5] .opc 
thread [5] . typ 
thread [ 5 ] . obj 
ta2->tvar 
ta2->pred 
ta2->tmd 
ta2->openp 



eTA; 

eT_streamof (intvclO) 

(ePtr) objof fset (ta2 , 

(ePtr) 10; 

(ePtr) 8; 

tl->pTMD; 

0; 



heap) ; 



55 



/* SUM_I */ 
thread [ 6 ] . opc 
thread [ 6 ] . typ 
thread [ 6] . obj 
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eSUM_I; 
eT_int ; 

(ePtr ) obj of f set ( sum, heap) ; 
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sum- > in 



(ePtr)7; 



10 



15 



20 



O 25 



30 



□ 35 



/* t.#0 */ 
thread [7 ] . opc 
thread [7] . typ 
thread [7] .obj 
varattl->tvar 
varattl->col 

/* < */ 
thread [ 8 ] . opc 
thread[8] .typ 
thread[8] .obj 
lt_ii->xl 
lt_ii->x2 

/* 1 */ 
thread [9 ] . opc 
thread [9] .typ 



eVARATT ; 
eT_int ; 

(ePtr) objof f set (varattl, heap) ; 

(ePtr) 10; 

0; 



eLT_II; 
eT_bool; 

(ePtr) objof f set (lt_ii, heap) ; 
(ePtr) 9; 
(ePtr) 7; 



eLIT; 
eT_int ; 



eT_as_int (thread [9] .val) = 1; 



/* VAR t */ 
thread [10] .opc 
thread [10] .typ 

/* EXIT */ 
thread [ 11 ] . opc 
thread [11] . typ 
#endif 



eVAR; 

(eType) intvclO; 



eEXIT; 
0; 



/ * Query 6 : 

select count ( z ), x, y 

from S 
group by x,y 



Plan: 



40 



45 



50 



BNO * 

I 

GROUP +-- [ CNT ] 

| +-- [ MOV, VARATT s.#l ] 

i I 
SORT as s VARATT s.#0 

^ i 
TA S 



#if 0 

55 /* BNO * */ 

thread [ 0 ] . opc 
thread[0] .typ 

SVL920010034US1 



eBNO ; 

(eType) intclOint ; 
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thread[ 0] .obj 
bno->in 
bno->f n 
bno->fns 
bno->bno 



(ePtr) objof f set (bno, heap) ; 
(ePtr) 1; 
(ePtr) 0; 
3; 

oMemAlloc (bno->fns * sizeof (ColVal) ) 



10 



15 



/* GROUP */ 
thread [1] .opc 
thread [1] . typ 
thread [1] .obj 
group->in 
group->src 
group->agg 
group->aggs 
group->fns 



eGROUP; 

eT__streamof (clOintint ) ; 
(ePtr) objof f set (group, heap); 
(ePtr) 5; 
(ePtr) 5; 
(ePtr) 2; 

l; 

2; 



20 



O 25 



/* CNT */ 
thread [2] .opc 
thread [2] .typ 

/* MOV */ 
thread [3] .opc 
thread[3] .typ 
thread [3] .obj 
mov->in 
mov->n 



eCNT ; 
eT__int ; 



eMOV; 

eT_setlen(eT_char, 10) ; 
(ePtr) objof f set (mov, heap) 
(ePtr) 8; 
10+1; 



m 30 



0 35 



40 



/* VARATT 
thread [4] 
thread [4] 
thread [4] 



s.#l 

. opc = 
■typ = 
. obj = 



varatt2- 
varatt2- 



>tvar 
>col 



/* SORT */ 
thread[5] .opc 
thread [5] .typ 
thread [5] .obj 
sort->in 
sort->tvar 
sort->tmd 



eVARATT ; 
eT_int ; 

(ePtr) objof f set (varatt2 , 

(ePtr) 7; 

1; 



heap) 



eSORT; 

eT_streamof (clOintsml) ; 
(ePtr) objof f set (sort, heap) 
(ePtr) 6; 
(ePtr) 7; 

gb->table->pTMD; 



oStrcpy ( sort->tmd->tname , " teggyll " ) 
sort->sortp = 0; 



45 



50 



/* TA S V 
thread[6] .opc 
thread[6] .typ 
thread [6] .obj 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 



eTA; 

eT_streamof ( clOintsml ) ; 

(ePtr) objof f set (tal , heap) ; 

(ePtr) 0; 

(ePtr) 0; 

t - >pTMD ; 

0; 



55 



/* VAR s */ 
thread [7 ] . opc 
thread [7] .typ 



eVAR; 

(eType) clOintsml; 
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/* VARATT s.#0 
thread[8] .opc = 
thread [8] . typ = 
thread [8] .obj = 
varattl->tvar = 
varattl->col 



eVARATT; 

eT„setlen(eT_char, 10) ; 
( ePtr ) obj of f set (varattl , 
(ePtr)7; 
0; 



heap) ; 



10 



/* EXIT */ 
thread[9] .opc 
thread [9] . typ 
#endif 



eEXIT; 
0; 



#if 0 



15 



20 



25 



30 



/* BNO * */ 
thread [0] .opc 
thread [0] . typ 
thread [0] .obj 
bno->in 
bno->fn 
bno->fns 
bno->bno 

/* GROUP */ 
thread [1] .opc 
thread [ 1 ] . typ 
thread [1] .obj 
group->in 
group->src 
group->agg 
group- >aggs 
group->f ns 



eBNO; 

(eType) intdlOSint ; 
(ePtr) objof fset (brio, 
(ePtr) 1; 
(ePtr) 0; 
3; 

oMemAlloc (bno->fns " 



heap) 



sizeof (ColVal) ) ; 



eGROUP ; 

eT_streamof (dlOSintint ) ; 

(ePtr) objof fset (group, heap) ; 

(ePtr) 5; 

(ePtr) 5; 

(ePtr) 2; 

l; 

2; 



flj 



35 



40 



/* CNT */ 
thread [2] .opc = 
thread [ 2 ] . typ = 

/* VARATT s.#0 
thread[3] .opc = 
thread [3] .typ = 
thread[3] .obj = 
mov->in = 
mov->n = 



eCNT; 
eT_int ; 

*/ 
eMOV; 

eT_setscale (eT_setprec (eT_decimal , 10) , 5) ; 
(ePtr) objof fset (mov, heap) ; 
(ePtr) 8; 

MAX_INTERNAL_DECI3V[AL_BYTES ; 



45 



50 



/* VARATT s.#l 
thread [4] .opc = 
thread [4] .typ = 
thread [4] .obj = 
varatt2->tvar = 
varatt2->col 



eVARATT ; 
eT_int ; 

(ePtr) objof fset (varatt2 , heap) 
(ePtr) 7; 

1; 



/* SORT */ 
thread[5] .opc 
thread [ 5 ] . typ 
55 thread [5] .obj 

sort->in 
sort->tvar 

SVL920010034US1 



eSORT; 

eT_streamof (dlOSintsml ) ; 
(ePtr) objof fset (sort, heap) 
(ePtr) 6; 
(ePtr)7; 
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sort->tmd = gb->table->pTMD; 

oStrcpy (sort->tmd->tname, "teggylO") ; 
sort->sortp = 0; 



10 



/* TA S V 
thread [6] . opc 
thread [6] . typ 
thread[6] .obj 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 



eTA; 

eT_streamof (dlOSintsml ) ; 
(ePtr) objof fset (tal, heap) ; 
(ePtr) 0; 
(ePtr) 0 
t->pTMD 
0; 



15 



/* VAR s */ 
thread [7 } . opc 
thread [7] .typ 



eVAR; 

(eType) dl05intsml ; 



20 



/* VARATT s.#0 */ 
thread [ 8 ] . opc = e VARATT ; 

thread[8] . typ = eT_setscale ( eT_setprec ( eT_decimal , 10), 5); 
thread [8] .obj = (ePtr ) obj of f set (varattl , heap) ; 
varattl->tvar = (ePtr)7; 
varattl->col = 0; 



U 25 /* EXIT */ 

thread [9] .opc 
O thread[9] .typ 

fi #endif 



eEXIT ; 
0; 



30 



/ * Query 7 : 



35 



select 
from 

Plan: 



x 
S 



40 



BNO [ ADD__DI ] 

I / \ 

I / \ 

TA S s VARATT s.#l VARATT s . #2 



#if 0 



45 



50 



/* BNO */ 
thread [ 0 ] . opc 
thread [0] .typ 
thread [0] .obj 
bno->in 
bno->fn 
bno-> f ns 
bno->bno 



eBNO ; 

(eType) dl05; 

(ePtr) objof fset (bno, heap) ; 
(ePtr) 4; 
(ePtr) 1; 
1; 

oMemAlloc (bno->fns * sizeof (ColVal) ) 



/* ADD_DI */ 
55 thread [1] .opc 

thread [1] .typ 
thread[l] .obj 

SVL920010034US1 



eADD_DI ; 

eT_setscale ( eT_setprec ( eT_decimal , 
(ePtr) objof fset (add_di , heap) ; 

37 
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add_di->xl 
add di->x2 



= (ePtr)2; 
= {ePtr)3; 



10 



15 



/* VARATT */ 
thread [2] . opc 
thread [ 2 ] . typ 
thread [2] . ob j 
varattl->tvar 
varattl->col 

/* VARATT */ 
thread [3 ] . opc 
thread [ 3 ] . typ 
thread [ 3 ] . obj 
var a 1 1 2 - > tvar 
varatt2->col 



eVARATT; 

eT_setscale (eT_setprec (eT_decimal , 
(ePtr) objof f set (varattl, heap) ; 
(ePtr) 5; 
1; 



10), 5) 



eVARATT; 
eT_int ; 

(ePtr) objof f set (varatt2 , 

(ePtr) 5; 

2; 



heap) 
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/* TA S */ 
thread [4] . opc 
thread [4] . typ 
thread [4] .obj 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 

/* VAR s */ 
thread [5] .opc 
thread [5] . typ 

/* EXIT */ 
( thread [6] . opc 
thread [ 6] . typ 



eTA; 

eT_streamof ( intdlOSint ) ; 

(ePtr) objof f set (tal, heap) ; 

(ePtr) 5; 

(ePtr) 0; 

t - >pTMD ; 

0; 



eVAR; 

(eType) intdlOSint; 



eEXIT; 
0; 
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#endif 



/ * Query 8 : 



40 



select y 
from S 



- z 



Plan: 



45 



BNO [ SUB_II ] 

I / \ 

I / \ 

TA S s VARATT s.#l VARATT s . #2 



50 
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/* BNO */ 
thread [ 0 ] . opc = 
thread [0] .typ = 
thread [0] .obj = 
brio -> in = 
bno->f n 

bno-> f ns - 
SVL920010034US1 



eBNO; 

(eType) xint ; 

(ePtr) objof f set (bno , heap) ; 

(ePtr) 4; 

(ePtr)l; 

1; 

38 



Express Mail Label #: ET705670620US 



bno->bno 



oMemAlloc (bno->fns * sizeof (ColVal ) ) 



/* SUB_II */ 
thread [1] .opc 
thread [1] . typ 
thread[l] .obj 
sub_ii->xl 
sub_ii->x2 



eSUB„II; 
eT_int ; 

(ePtr) obj of f set (sub_ii, heap) 

(ePtr)2; 

(ePtr)3; 



10 



15 



/* VARATT */ 
thread [2] .opc 
thread [ 2 ] . typ 
thread [2] .obj 
varattl->tvar 
varattl->col 



eVARATT ; 
eT_int; 

(ePtr) objof f set (varattl, heap) 
(ePtr) 5; 

1; 
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/* VARATT */ 
thread[3] .opc 
thread[3] . typ 
thread [ 3 ] . obj 
varatt2->tvar 
varatt2->col 



eVARATT; 
eT_smlint; 

(ePtr) objof f set (varatt2 , heap) 

(ePtr) 5; 

2; 



y 25 
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/* TA S */ 
thread[4] .opc 
thread [4] .typ 
thread [4] .obj 
tal->tvar 
tal->pred 
tal->tmd 
tal->openp 



eTA; 

eT_streamof ( clOintsml) ; 

(ePtr) objof f set (tal, heap) ; 

(ePtr) 5; 

(ePtr) 0; 

t->pTMD; 

0; 
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/* VAR s */ 
thread [5] .opc 
thread [5] . typ 



eVAR; 

(eType) clOintsml; 



ru 
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/* EXIT */ 

thread[6] .opc = eEXIT; 
thread[6] .typ = 0; 



45 



ePrepare (&s) ; 

while { (rc = elnterpret (&s) ) 
eRendert&s, hostio) ; 
n++ ; 

} 



== eOK) { 
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eSweep (&s) ; 

oMemFreeSaf e (bno->bno) ; 



SVL920010034US1 
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